#!/usr/bin/perl -w
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0;

use strict;
use File::Find();
use vars qw/*name *dir *prune/;
*name=*File::Find::name;
*dir=*File::Find::dir;
*prune=*File::Find::prune;

sub wanted;

File::Find::find({wanted=>\&wanted},'.');

sub wanted{
	/^.*\.pl\z/s && print ("$name\n");
}